home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
iqb9109.zip
/
TESTRAND.BAS
< prev
Wrap
BASIC Source File
|
1991-09-09
|
314b
|
18 lines
' TESTRAND.BAS
' $INCLUDE: 'RANDFN.BI'
DEFINT A-Z
' The following program fragment demonstrates
' how you use the functions Ran0%(), Ran1%(),
' Ran0&(), and Ran1&().
PRINT: PRINT
FOR x = 1 TO 30
j& = 40000
j% = 100
PRINT Ran0%(j%), Ran1%(j%),
PRINT Ran0&(j&), Ran1&(j&)
NEXT x
END